#!/usr/bin/perl
#
# Test of the Malus functionality
#

use Malus;

$Malus::punishlimit = 4;

warn "Initial malus\n";
Malus::note("test", "caller1");
Malus::note("test", "caller1");
Malus::note("test", "caller1");
Malus::note("test", "caller1");
Malus::note("test", "caller1");
Malus::note("test", "caller2");

warn "Delay 1 sec\n";
Malus::punish("test", "caller1");
warn "Delay 0 sec\n";
Malus::punish("test", "caller2");
for $count (1..11) {
  Malus::note("test", "caller3");
}
warn "Delay 6 sec\n";
Malus::punish("test", "caller3");

warn "Delete all but Caller 3\n";
Malus::creditall("test", 5);
warn "Delay 1 sec\n";
Malus::punish("test", "caller3");
warn "Delete all\n";
Malus::creditall("test", 10);



